Dit voorbeeld toont verschillende manieren waarop de functie InputBox kan worden gebruikt om de gebruiker te vragen een waarde in te voeren. Als de x- en y-posities worden weggelaten, wordt het dialoogvenster automatisch gecentreerd voor de desbetreffende assen. De variabele MyValue
bevat de ingevoerde waarde als u op OK klikt of op ENTERRETURN drukt. Als u op Annuleren klikt, wordt een tekenreeks met lengte nul als resultaat gegeven.
Dim Message, Title, Default, MyValue
Message = "Voer een waarde in tussen 1 en 3" ' Stel vraag in.
Title = "Demo InputBox" ' Stelt titel in.
Default = "1" ' Stelt standaard in.
' Geeft bericht, titel en standaardwaarde weer.
MyValue = InputBox(Message, Title, Default)
' Gebruikt Help-bestand en context. De knop Help wordt automatisch toegevoegd.
MyValue = InputBox(Message, Title, , , , "DEMO.HLP", 10)
' Geeft dialoogvenster weer op positie 100, 100.
MyValue = InputBox(Message, Title, Default, 100, 100)